home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / pgmrexit.arc / PGMREXIT.CLP < prev    next >
Text File  |  1991-12-04  |  5KB  |  59 lines
  1. /*     CRTOPT PUBAUT(*ALL)                                           */         
  2. /*********************************************************************/         
  3. /* PROGRAM-             PGMREXIT                                     */         
  4. /* AUTHOR-              GREG THIELEN                                 */         
  5. /* DATE WRITTEN-        JANUARY 1, 1985                              */         
  6. /* PROGRAM DESCRIPTION- EXIT PROGRAM FOR DSPPGMMNU CMD.              */         
  7. /*********************************************************************/         
  8.              PGM        PARM(&OPTION &PARM &TYPE &PARM2 &TEXT &LOGRQS +         
  9.                           &SRCFILE &SRCLIB &OBJLIB &JOBD &RQSLEN +              
  10.                           &RQSDTA512 &CF4 &CF11 &OBJEXIST)                      
  11.              DCL        VAR(&OPTION) TYPE(*CHAR) LEN(2)                         
  12.              DCL        VAR(&PARM) TYPE(*CHAR) LEN(10)                          
  13.              DCL        VAR(&TYPE) TYPE(*CHAR) LEN(4)                           
  14.              DCL        VAR(&PARM2) TYPE(*CHAR) LEN(21)                         
  15.              DCL        VAR(&TEXT) TYPE(*CHAR) LEN(50)                          
  16.              DCL        VAR(&LOGRQS) TYPE(*CHAR) LEN(4)                         
  17.              DCL        VAR(&SRCFILE) TYPE(*CHAR) LEN(10)                       
  18.              DCL        VAR(&SRCLIB) TYPE(*CHAR) LEN(10)                        
  19.              DCL        VAR(&OBJLIB) TYPE(*CHAR) LEN(10)                        
  20.              DCL        VAR(&JOBD) TYPE(*CHAR) LEN(10)                          
  21.              DCL        VAR(&RQSLEN) TYPE(*DEC) LEN(3 0)                        
  22.              DCL        VAR(&RQSLENQ) TYPE(*DEC) LEN(15 5)                      
  23.              DCL        VAR(&RQSDTA512) TYPE(*CHAR) LEN(512)                    
  24.              DCL        VAR(&CF4) TYPE(*LGL)                                    
  25.              DCL        VAR(&CF11) TYPE(*LGL)                                   
  26.              DCL        VAR(&OBJEXIST) TYPE(*LGL)                               
  27.              DCL        VAR(&RQSDTA256) TYPE(*CHAR) LEN(256)                    
  28.              DCL        VAR(&MSGID) TYPE(*CHAR) LEN(7)                          
  29.              DCL        VAR(&MSGF) TYPE(*CHAR) LEN(10)                          
  30.              DCL        VAR(&MSGFLIB) TYPE(*CHAR) LEN(10)                       
  31.              DCL        VAR(&MSGDTA) TYPE(*CHAR) LEN(132)                       
  32.              CHKOBJ     OBJ(&SRCFILE.&SRCLIB) OBJTYPE(*FILE) +                  
  33.                           MBR(&PARM) AUT(*OPER *READ)                           
  34.              MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(RCVMSG))                
  35.              OVRDBF     FILE(SRCFILE) TOFILE(&SRCFILE.&SRCLIB) +                
  36.                           MBR(&PARM) SECURE(*YES)                               
  37.              CALL       PGM(PMRGSRCO) PARM(&RQSDTA512 &RQSLEN)                  
  38.              DLTOVR     FILE(SRCFILE)                                           
  39.              CHGVAR     VAR(&RQSLENQ) VALUE(&RQSLEN)                            
  40.              CALL       PGM(QCACHECK) PARM(&RQSDTA512 &RQSLENQ)                 
  41.              MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(RCVMSG))                
  42.              IF         COND(&RQSLEN *GT 256) THEN(SNDPGMMSG +                  
  43.                           MSGID(CPF9898) MSGF(QCPFMSG) +                        
  44.                           MSGDTA('Request data length is greater than +         
  45.                           256. Command cannot be submitted') +                  
  46.                           MSGTYPE(*ESCAPE))                                     
  47.              CHGVAR     VAR(&RQSDTA256) VALUE(&RQSDTA512)                       
  48.              SBMJOB     JOB(&PARM) JOBD(&JOBD) RQSDTA(&RQSDTA256) +             
  49.                           LOG(0)                                                
  50.              MONMSG     MSGID(CPF0000)                                          
  51.  RCVMSG:     RCVMSG     MSGDTA(&MSGDTA) MSGID(&MSGID) MSGF(&MSGF) +             
  52.                           MSGFLIB(&MSGFLIB)                                     
  53.              IF         COND(&MSGID *NE ' ') THEN(DO)                           
  54.                SNDPGMMSG  MSGID(&MSGID) MSGF(&MSGF.&MSGFLIB) +                  
  55.                             MSGDTA(&MSGDTA)                                     
  56.                GOTO       CMDLBL(RCVMSG)                                        
  57.              ENDDO                                                              
  58.              ENDPGM                                                             
  59.